Option Explicit

'################################################################
' Descriptor
' 保存各个组件的名称信息的接口的基础实现
'################################################################

Implements ISqlTranslateNameInfo

'################################################################
' Field
'################################################################

' 转换后名称
Private translatedName As String

' 别名
Private aliasName As String

' 获取非要求类型的名称
Private reverseTypeName As String

'################################################################
' Implements ISqlTranslateNameInfo Function
'################################################################
' 获取转换后名称
' 如果没有，则返回 ""
Public Function ISqlTranslateNameInfo_getTranslatedName() As String
    ISqlTranslateNameInfo_getTranslatedName = translatedName
End Function

' 获取别名
' 如果没有，则返回 ""
Public Function ISqlTranslateNameInfo_getAliasName() As String
    ISqlTranslateNameInfo_getAliasName = aliasName
End Function

' 获取非要求类型的名称
' 如果没有，则返回 ""
Public Function ISqlTranslateNameInfo_getReverseTypeName() As String
    ISqlTranslateNameInfo_getReverseTypeName = reverseTypeName
End Function

'################################################################
' Function
'################################################################
' 设置转换后名称
Public Sub setTranslatedName(ByRef n As String)
    translatedName = n
End Sub

' 设置别名
Public Sub setAliasName(ByRef n As String)
    aliasName = n
End Sub

' 设置非要求类型的名称
Public Sub setReverseTypeName(ByRef n As String)
    reverseTypeName = n
End Sub